home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO018.dsk / JOTTO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  68 lines
  1. 100  REM  JOTTO (DUP LETTERS OK)
  2. 110  REM  
  3. 120  REM  KEITH AND NEIL FALKNER
  4. 130  REM  
  5. 140  DIM HIT(5)
  6. 150  PRINT  CHR$(21): TEXT : HOME 
  7. 160  VTAB 1: PRINT  TAB( 16)"J O T T O"
  8. 170  VTAB 3: PRINT "PLEASE TYPE YOUR NAME:"
  9. 180  INPUT "";WHO$: VTAB 3: CALL  -868
  10. 190  VTAB 5: IF  LEN(WHO$)  THEN  PRINT "IS TRYING TO ..."
  11. 200  PRINT "GUESS A 5-LETTER WORD."
  12. 210  VTAB 10: INPUT "SHALL I PRINT THE RULES? ";GUESS$
  13. 220  VTAB 10: CALL  -868: IF  LEN(GUESS$) = 0  THEN 310
  14. 230  IF  LEFT$(GUESS$,1) < >"Y"  THEN 310
  15. 240  PRINT "I WILL CHOOSE A 5-LETTER WORD"
  16. 250  PRINT "YOU MAKE A GUESS, BY TYPING A"
  17. 260  PRINT "FIVE-LETTER WORD.  I TELL YOU"
  18. 270  PRINT "HOW MANY OF YOUR LETTERS ALSO"
  19. 280  PRINT "APPEAR IN MY WORD.  WE REPEAT"
  20. 290  PRINT "THIS UNTIL YOU TYPE MY CHOSEN"
  21. 300  PRINT "WORD, ... OR ONE OF US QUITS."
  22. 310  REM   I CHOOSE A WORD
  23. 320  GOSUB 600:TRIES = 0
  24. 330  REM   USER MAKES A GUESS
  25. 340  IF TRIES >18  THEN 580
  26. 350  VTAB 20: CALL  -868: REM   CLEAR LINE
  27. 360  INPUT "YOUR GUESS: ";GUESS$
  28. 370  IF  LEN(GUESS$) < >5  THEN 350
  29. 380  FOR I = 1 TO 5:L$ =  MID$ (GUESS$,I,1): IF L$ <"A"  OR L$ >"Z" GOTO 350
  30. 390  NEXT 
  31. 400 COPY$ = CHOICE$:V = 0
  32. 410  REM MATCH GUESS AND CHOICE
  33. 420  FOR J = 1 TO 5:HIT(J) = 0: NEXT J
  34. 430  FOR I = 1 TO 5: REM   STEP ACROSS GUESS
  35. 440  FOR J = 1 TO 5: REM   STEP ACROSS CHOICE
  36. 450  IF  MID$ (COPY$,J,1) < > MID$ (GUESS$,I,1) GOTO 470
  37. 460  IF HIT(J) = 0  THEN HIT(J) = 1:V = V +1: GOTO 480
  38. 470  NEXT J
  39. 480  NEXT I:TRIES = TRIES +1
  40. 490  VTAB TRIES: HTAB 33: PRINT GUESS$;"--";V
  41. 500  IF V <5  THEN 330
  42. 510  IF GUESS$ = CHOICE$  THEN 530
  43. 520  VTAB 18: PRINT "(REARRANGE: ";GUESS$;")": GOTO 330
  44. 530  VTAB 20: PRINT "CORRECT! YOU FOUND '";CHOICE$;"' IN ";TRIES;" TRIES."
  45. 540  INPUT "DO YOU WANT TO PLAY AGAIN? ";GUESS$
  46. 550 GUESS$ =  LEFT$(GUESS$,1): IF GUESS$ < >"Y"  AND GUESS$ > <"y" GOTO 590
  47. 560  FOR I = 1 TO TRIES: VTAB I: HTAB 33: CALL  -868: NEXT I
  48. 570  VTAB 18: HTAB 1: CALL  -958: GOTO 310
  49. 580  VTAB 20: PRINT "YOU ARE NOT TRYING.  I QUIT!"
  50. 590  PRINT  CHR$(4)"-STARTUP"
  51. 600 V1$ = "CFSCPECGGKEKLTVPWXTTFCGHWEQSTSGLJFTMJSBPETMBBTJSTRBBVBCFCCSESHSEASCFNTSRPVDPUVOU"
  52. 610 V1$ = V1$ +"FPFDBFQFTGPSFEPKTBEEARSETULBABFMFDUGGPPDFSTGSGBTWADJRDFDMFDMFAHWSWSBDVFVFCCSGIOO"
  53. 620 V1$ = V1$ +"TARQRIIJKGSEPCOIQZJFGBBPABWMLSPSEHSJHHCJYEAOKDSBMAWCSHSGVHGACMEBSHCHROFJFWVWQBRA"
  54. 630 V2$ = "OLTHIQONRNXHLRAOAEHOLERIIAUARTUAUROUIPUUNAEERUOHWEUUOORIRAURTOINPPOLARHEOIIRSOUR"
  55. 640 V2$ = V2$ +"IHORRRULARATRNHNAARALOPIHPOANEEALENOUAURIIHNAUORHUROIRLAOIEAIRUATOTLRAUOULIQLGGU"
  56. 650 V2$ = V2$ +"YNOUAARIUIWJOUDDAOAILLOAGIRUUMLCQOAOAOAEOXZOAATUABALHACRIARBEAXOIARUICAILREAUAAM"
  57. 660 V3$ = "UIAELUNOEOIAAULLLNIUUDAREREDOREBLEXMFIGSDSRAALIUIFIGWSUGAWGUOTSAPOAABYISWDSIUGGB"
  58. 670 V3$ = V3$ +"RORAUUAALONIAJOOPSRGIULGRPWSGLLNITILLLROFXIAIIMUOGIUFIIIPLINXRMIRROIAGDDNIGUYLLT"
  59. 680 V3$ = V3$ +"PIYELMOHLVAEPROINNZBAARNINASAEAAURULPBLWUEUZZDRNXBIAORRAPVAALGUXLBYRGHSFUENXANDA"
  60. 690 V4$ = "CNRWOAIMELSKMLVKTOGGFEPELLULOESIEEIMFNLHOKRUVINSLELGEOEHFEAPNESCLOTSOSFEEEKNAUHA"
  61. 700 V4$ = V4$ +"SNGMTIKILASNUONBEIOLGGIHEEEIROOGNETEFSSOTTRWNLBMRELSLFRSEEFOEAASASRMWUGKNFAAPOEE"
  62. 710 V4$ = V4$ +"ESAELBNAAEMCPIUOAEZRSSOINGTIULCLINCLPBYETRREODUNIEVSCEEIEEFCLILEKIPRHRTFNCOELJAZ"
  63. 720 V5$ = "HTTYTLCEDLTIAYEAZNHHFDHDDYEYPWSAPDCYYEEYWSYXEPTHLRTYLMLTTDRTELYTEKIHBTTTROSTLETN"
  64. 730 V5$ = V5$ +"TYEAETELYNYGDYESSCRENHTTERRSYWNYTREMSYEPYYDSTTSPLRLTETTYDSYRDYNTWTKPNEEAYFRWHODR"
  65. 740 V5$ = V5$ +"DELNYSYDKNITYORMTDYESTNCGOHCSLEPPYEYYYXLHTEDOYTYMYEHKMWLRNTIOCTDYTTYTESYKKMDMORE"
  66. 750 I = 1 + INT( RND(1) * LEN(V1$))
  67. 760 CHOICE$ =  MID$ (V1$,I,1) + MID$ (V2$,I,1) + MID$ (V3$,I,1) + MID$ (V4$,I,1) + MID$ (V5$,I,1)
  68. 770  RETURN